home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / SP.LSP < prev    next >
Text File  |  1992-09-13  |  3KB  |  62 lines
  1. ;Setup program for Power Key Program drawings
  2. ;
  3. ;
  4. (defun seterr (s)
  5. (if (/= s "Function cancelled")(princ (strcat "\nerror: " s)))
  6. (menucmd "s=s")
  7. (setq *error* oer seterr  nil )(princ))
  8. (apply '(lambda (/ d xl yl oer olu oce)
  9. (menucmd "s=units")
  10. (setq  oer  *error*  *error*  seterr)
  11. (menucmd (strcat "s=u" (itoa a)))
  12. (cond((= a 5)(setq a 2 d 5)))
  13. (setq olu (getvar "lunits"))
  14. (command "setvar" "lunits" a)
  15. (cond((= b 0)(progn(initget (+ 1 2 4))(setq b (getreal "\nEnter the scale: "))
  16. (setq b (float b)))))
  17. (setq asz 0.675)
  18. (setq lt 0.375)
  19. (setq tz1 0.09375)
  20. (setq tz2 0.125)
  21. (setq tz3 0.25)
  22. (setq asz1(* b asz))
  23. (setq lts(* b lt))
  24. (setq tsz(* b tz1))
  25. (setq tsz2(* b tz2))
  26. (setq tsz3(* b tz3))
  27. (cond((= d 5)(menucmd "s=metric"))(t(menucmd "s=english")))
  28. (cond((= cx 0)(progn(initget (+ 1 2 4))
  29. (setq cx (getdist "\nEnter the horizontal size of the paper: "))
  30. (initget (+ 1 2 4))
  31. (setq cy (getdist "\nEnter the vertical size of the paper: ")))))
  32. (setq xl (* b cx) yl (* b cy))
  33. (command"limits" "0,0" (list xl yl)"insert" "border" "0,0" xl yl "0""zoom" "a")
  34. (menucmd "s=s")
  35. (setq *error* oer seterr  nil )(princ))'())
  36. (setvar"dimexe"tsz)(setvar"dimexo"tsz)
  37. (setvar"dimasz"asz1)
  38. (setvar"blipmode"0)(setvar"aperture"3)
  39. (setvar"regenmode"0)
  40. (setvar"attmode"1)(setvar"attreq"1)
  41. (setvar"axismode"1)
  42. (setvar"blipmode"1)(setvar"coords"2)
  43. (setvar"dimscale"1)
  44. (setvar"dimaso"0)(setvar"dimtsz"0)
  45. (setvar"dragmode"2)
  46. (setvar"dragp1"15)(setvar"dragp2"50)
  47. (setvar"fillmode"1)
  48. (setvar"ltscale"lts)(setvar"luprec"1)
  49. (setvar"mirrtext"0)
  50. (setvar"dimtih"0)(setvar"dimasz"tsz)
  51. (setvar"pdmode"0)(setvar"pdsize"1)
  52. (setvar"pickbox"3)
  53. (setvar"regenmode"1)(setvar"snapmode"1)
  54. (setvar"highlight"1)
  55. (setvar"ucsicon"1)(setvar"dimtad"1)
  56. (command "zoom""a""zoom"".95x")
  57. (setq gs(* tsz2 b)) 
  58. (command "grid" b)
  59. (command"style""sx1""simplex"tsz".9" "" "" "" "" "style" "sx2""simplex"tsz2 ".9" "" "" "" "" "style" "sx3""simplex"tsz3".9" "" "" "" "" "style" "m1""monotxt"tsz".9" "" "" "" "" "style" "m2""monotxt"tsz2".9" "" "" "" "" "style" "m3""monotxt"tsz3".9" "" "" "" "" "style" "r1""romans"tsz".9" "" "" "" "" "style" "r2""romans"tsz2".9" "" "" "" "" "style" "r3""romans"tsz3".9" "" "" "" "" "style" "t1""txt"tsz".9" "" "" "" "" "style" "t2""txt"tsz2".9" "" "" "" "" "style" "t3""txt"tsz3".9" "" "" "" "")
  60. (command "style" "r1" "" "" "" "" "" "" "")
  61. (setq cx nil cy nil b nil a nil tsz nil tsz2 nil tsz3 nil tz1 nil tz2 nil tz3 nil asz nil asz1 nil lt nil)
  62. (command"insert""kee-dwg""0,0""""""")